#!/usr/bin/perl
#Simple example open file like operator " | " in shell
open(MYOPEN,"|cat pipe_open.pl");
while(<MYOPEN>){	
	print $_;
}
close(MYOPEN);
